Modeling the Dream/Modeling the Dream CD - Walkthroughs and Flybys II (1994)(Waite Group).iso/spacebar/neumann.txt

Text File | 1994-09-14 | 10KB | 692 lines

;set debug on

;                BIGDEMO.TXT
;                The Grasp control program for the BigDemo
;                (c) 1994 Waite Group Press
set swappath "c:\temp"
set maxcall on
global playspeed 4
global creddel 300
global thispath "\\mtdtemp"

global cnt 0    ;count into playlist
global sub ""    ;subroutine name
global broken 0

if envdef(lmode)
 global lmode 1    ;lmode is defined in environment, bigdemo does not loop
else
 global lmode 0
endif

init
;localise
neumann
. chdir(@c$"\\spacebar")
return

neumann:
global thispath "\\flics\\neumann\\"
;runmode                ;check in from CD or hard disk
mp jump
databegin
"jumpan.fli" "jump01.fli" "rueckmo.fli" "eckgeh.fli" "eckrumo.fli" "jump01.fli"
"salto01.fli" "jump01.fli" "jump03.fli" "rengeh00.fli"
dataend
mark 10
 playit @c$@thispath$@
 if @broken==1
  break neuout
 endif
loop
neuout:
dfree d1
midpak stop
goto terminate

                ;------------general subs start

fadedown:
local vol 100
mark 18
 midpak volume @vol
 set vol @vol-5
 waitkey 5
loop
midpak stop
midpak volume 100
return


init:
video l
global cr chr(10)$chr(13)
global ext ""
local trip 1            ;does the sound play?, set to false
. chdir(@c$"\\bigdemo")
opengl @c$"\bigdemo\bigdemo.ovr"
load midpak
@midpak verify
closegl
if !@0
 text "The MIDPAK.COM driver is not loaded!"$@cr
 text "Press any key to return to DOS."
 wait
 exit
endif

if !envdef(c)
 text "No C environment variable! "@cr
 text "To run BIGDEMO from DOS use GO.BAT"@cr
 wait
 exit
endif

when ESC goto terminate

set fs open(@t$"\mtd\midpak.adv")    ;How big is MIDPAK.ADV
local advsize size(@fs)            ;stick it in ADVSIZE
. close(@fs)

databegin                ;sizes of the wave drivers
"44836"
"10590"
"10816"
"10590"
"7178"
"10590 "
"39859"
"end"
dataend

local x @                ;grab first item into var
advhop:
if @x!="end"
 if @x==@advsize
  text "Using wave table synthesis for MIDI"@cr
  set ext ".gen"
  goto advdone
 else
  local x @
  goto advhop
 endif
endif
text "Using frequency modulation (FM) MIDI files"@cr
set ext ".opl"
advdone:

opengl @c$"\bigdemo\bigdemo.ovr"
load midpak.grp digpak.grp               ;load grps
closegl
if !@0
 text "Error loading GRP files"
 wait
 exit
else
 text "GRPs loaded..."$@cr
endif

load _laser.raw
digpak preloaded @_laser
digpak play

tt:
digpak done
if !@0
 set trip 0
 goto tt
endif
free laser

if @trip
 text "Sound didn't play!!!!"@cr
 wait
 exit
else
 text "Sound appears to be playing correctly"@cr
endif
midpak volume 100                      ;MIDPAK driver has internal vol control
                    ;mixer levels for MIDI!!!
text "Press Enter to start now"@cr@cr@cr
text "At runtime pressing Enter will advance"@cr@cr@cr
text "Press Esc at anytime to terminate"@cr@cr@cr
text "Pausing for 10 seconds"

flushkey

;. chdir("c:\\mtdsfx\\bigdemo")      ;Rob's hook - If you remove the
;                      semicolon in front of the . then
;                      BIGDEMO will look to the path inside
;                      the chdir string for digpak and midpak
;                      files

mark 10
 wait 100
 text "."
 waitkey 0
 getkey k name
 if @k==return
  return
 endif
loop

return                    ;--------------- end of init


localise:                ;subroutine checks for flics on hd
                    ;and copies them if possible.
local ax 0 bx 0 cx 0 freebytes 0 chcnt 0 chfile " " downed 0
local runcd 0
global fromcd 0
int 0x21 0x3600,,,0x0000        ;default drive
if @ax==0xffff
 text "Problem getting free disk space"
 pause
 exitnow
endif
set freebytes (@ax*@bx*@cx)/1000
if @freebytes>=182000
 set enuf 0
else
 set enuf 1
endif

color 0
clearscr
color 15
window

databegin ckl
loctop:
 . chdir(@t$"\\mtdtemp")
 set chfile @
 if @chfile<>"end"
  local temp open(@chfile)
  if @temp
   local success close(@temp)
  else
;   text @chfile$": file not found"$@cr
   set downed 1
  endif
goto loctop
 endif
 . chdir(@t$"\\mtd")
if @downed==0
 text 0 0 "The requisite file have been found in MTDTEMP"
 waitkey 100
 set fromcd 1
 global drive @t
 return
endif
if @downed==1&&@enuf==0
 databegin
 "You have more than 180MB free on this drive!


Press C if you would like to run the MIDPAK BigDemo from the CD, or


Press D to download the graphics to your hard disk for faster playback.


Please press either C or D now:"
 dataend
 window
 color 0
 clearscr
 color 15
 text @
 flushkey
 waitkey
 getkey k
 if @k=="d"||"D"
  set fromcd 1
  set drive @t
  download        ;go get the files...
  return
 endif
 if @k=="c"||"C"
  global drive @c
. chdir(@drive$"\\bigdemo")
  return        ;play as per normal
 endif
endif
if @enuf==1&&@downed==1
  global drive @c
. chdir(@drive$"\\bigdemo")
  return        ;play as per normal
endif
return


download:
video m
color 0
window
clearscr
color 15
exec c:\dos\xcopy.exe @c$"\\flics\\neumann\*.fli "$@t$"\\mtdtemp"
video l
return




maxvol:
midpak volume 100                      ;MIDPAK driver has internal vol control
return


playit:
dload @1 d1 1
putdff d1 0 0 0
mark (d1->frames)-1
 putdff d1 @playspeed @loop @loop
 waitkey 0
 getkey k name
 if @k==return
  set broken 1
  break playout
 endif
loop
playout:
dfree d1
return


mp:
midpak use @c$"\\bigdemo\\"$@1$@ext
midpak play
return


runmode:
if @fromcd==1
 set thispath "\\mtdtemp\\"
endif
return


showcred:            ;shows credit screens
pload @c$"\\bigdemo\\"$@1$".gif" p1
color 0
pfade 12 0
palette p1
pfade 12 p1
pfree p1
waitkey @creddel
pfade 12 0
return


terminate:
 when esc
 digpak quit                 ;implicit loading
 midpak stop
 free digpak midpak
; if def(spaceflag)
;  . chdir(@c$"\\spacebar")
;  link tmpfile.txt
; endif
; if @lmode==2            ;demo has reached end normally
;  local fs create(@t$"ends")
; else                ;was interupted by esc
;  local fs create(@t$"abort")
; endif
; local bw write(@fs,"A")
; if @bw!=1
;     text 0 0 "Problem writing"
;    waitkey
; endif
; . close(@fs)
; . chdir(@t$"\\mtd")
 exitnow

writenear:                ;debugger
 color 0
 rect 400 200 500 230
 color 15
 text 400,220 "Used:"$@memused
 text 400,210 "Tota:"$@memfree
 text 400,200 "Near:"$@nearmem
return



                    ;------------ start of data tables
ckl:
CHESS00.FLI
CHESS01.FLI
CHESS02.FLI
CHESS03.FLI
CHESS04.FLI
CHESS05.FLI
CHESS06.FLI
CHESS07.FLI
CHESS08.FLI
CHESS09.FLI
CHESS10.FLI
CHESS11.FLI
CHESS12.FLI
CHESS13.FLI
CHESS14.FLI
CHESS15.FLI
CHESS16.FLI
CHESS17.FLI
CHESS18.FLI
CHESS19.FLI
CHESS20.FLI
CHESS21.FLI
CHESS22.FLI
CHESS23.FLI
CHESS24.FLI
CHESS25.FLI
CHESS26.FLI
CHESS27.FLI
CHESS28.FLI
CHESS29.FLI
CHESS30.FLI
CHESS31.FLI
CHESS32.FLI
CHESS33.FLI
CHESS34.FLI
CHESS35.FLI
CHESS36.FLI
CHESS37.FLI
CHESS38.FLI
CHESS39.FLI
CHESS40.FLI
CHESS41.FLI
CHESS42.FLI
CHESS43.FLI
CHESS44.FLI
PINBALL.FLI
CHERNBO1.FLI
ENTRANCE.FLI
CHERNBO2.FLI
CHERNBO3.FLI
MELONFRM.FLI
CAM01A.FLI
CAM01B.FLI
CAM02.FLI
CAM03.FLI
CAM04.FLI
CAM05.FLI
CAM06.FLI
CAM07.FLI
CAM08A.FLI
CAM08B.FLI
ECKGEH.FLI
ECKRUMO.FLI
JUMP01.FLI
JUMP03.FLI
JUMPAN.FLI
RENGEH00.FLI
RUECKMO.FLI
SALTO01.FLI
end


cherntab:
1,_gone,156
1,_gone2,225
1,_cable,466
1,_cable,486
1,_cable,555
1,_cable,577
1,_cable,682
2,_cable,26
2,_truss,210
2,_truss,345
2,_truss,480
2,_truss,553
2,_truss,625
2,_truss,680
3,_Slamc,20
3,_Slam2,60
3,_Slam3,104
3,_Lil,109
3,_Lil,115
3,_Lil,119
3,_Lil,125
3,_Lil,130
3,_Lil,135
3,_Lil,139
3,_Lil,144
3,_Lil,149
3,_Bigger,154
3,_Bigger,174
3,_Bigger,185
3,_Bigger,194
3,_Bigger,205
3,_Bigger,214
3,_Bigger,224
3,_Truss,301
3,_Truss,336
3,_Truss,376
3,_Truss,416
3,_Truss,456
3,_Truss,496
3,_TRI,541
3,_TRI,580
4,_TRI,20
4,_TRI,60
4,_TRI,100
4,_TRI,140
4,_TRI,181
4,_TRI,222
4,_TRI,262
4,_Slam3,573
4,_Slam4,628
4,_Arch,704
4,_Arch,714
4,_Arch,724
4,_Arch,734
4,_Arch,744
4,_Arch,754
4,_Arch,764
4,_Arch,774
4,_Arch,784
4,_Archm,799
4,_Stops,833
4,_Closes,842
4,_Arch2,953
4,_Arch2,984
4,_Arch2,1014
4,_Arch2,1044
4,_Arch2,1074
4,_Arch2,1104
4,_Arch2,1134
4,_Arch2,1164
4,_Arch2,1194
4,_Arch2,1224
4,_Arch2,1254
4,_Endcher,1370
end

chesstable:
0,_C1,31
1,_C2,81
2,_C3,1
2,_C3,99
2,_C4,126
2,_C4,161
2,_C4,192
2,_C4,223
2,_C4,254
2,_C4,280
4,_C5,28
4,_C5,58
4,_C5,88
4,_C5,118
4,_C5,148
5,_C6,72
6,_C7,44
6,_C7,57
6,_C8,67
6,_C6,117
7,_C9,36
7,_C9,44
7,_C9,54
7,_C9,61
7,_C9,67
8,_C8,32
8,_C7,61
8,_C7,74
8,_C7,88
8,_C8,91
8,_C6,137
9,_C11,34
9,_C12,66
9,_C6,113
10,_C7,48
10,_C7,64
10,_C13,72
10,_C6,133
11,_C14,31
11,_C15,37
11,_C16,47
11,_C17,56
11,_C6,112
12,_C18,41
12,_C18,47
12,_C18,57
12,_C18,63
12,_C18,66
12,_C6,109
13,_C15,32
13,_C19,40
13,_C20,50
13,_C11,65
13,_C12,96
13,_C12,101
14,_C21,30
14,_C7,47
14,_C7,57
14,_C7,67
14,_C21,75
14,_C6,124
15,_C17,32
15,_C6,123
16,_C15,32
16,_C23,45
16,_C12,90
16,_C6,143
17,_C24,32
17,_C21,56
17,_C25,65
17,_C6,122
18,_c26,32
18,_c26b,42
18,_c27,67
18,_c6,122
19,_c28,32
19,_c29,73
19,_c6,136
20,_c30,42
20,_c30,61
20,_c30,81
20,_c30,101
20,_c31,111
20,_c30,156
20,_c30,162
20,_c6,202
21,_c28,32
21,_c32,49
21,_c33,63
21,_c29,81
21,_c6,122
22,_c30,51
22,_c30,61
22,_c34,85
22,_c6,165
23,_c28,32
23,_c35,73
23,_c36,81
23,_c38,136
23,_c6,196
24,_c39,32
24,_c40,73
24,_c6,134
25,_c28,32
25,_c41,51
25,_c6,132
26,_c30,51
26,_c30,72
26,_c42,82
26,_c43,102
26,_c30,137
26,_c6,178
27,_c38,32
27,_c29,106
27,_c6,147
28,_c45,44
28,_c6,104
29,_c47,29
29,_c48,54
29,_c49,82
29,_c6,139
30,_c30,51
30,_c50,70
30,_c51,111
30,_c30,131
30,_c6,172
31,_c52,32
31,_c53,58
31,_c53,70
31,_c53,82
31,_c52,95
31,_c6,152
32,_c54,41
32,_c54,51
32,_c54,61
32,_c54,71
32,_c54,76
32,_c6,116
33,_c55,32
33,_c6,147
34,_c39,32
34,_c56,50
34,_c56,60
34,_c56,70
34,_c39,83
34,_c57,102
34,_c6,143
35,_c28,32
35,_c29,91
35,_c6,132
36,_c58,32
36,_c59,40
36,_c60,48
36,_c57,79
36,_c6,120
37,_c58,32
37,_c58,71
37,_c58,91
37,_c58,101
37,_c6,144
38,_c58,32
38,_c59,40
38,_c61,48
38,_c6,132
39,_c62,22
39,_c6,101
40,_c56,43
40,_c56,60
40,_c39,90
40,_c62,32
40,_c6,142
41,_c62,32
41,_c63,51
41,_c64,61
41,_c6,113
42,_c56,30
42,_c65,52
42,_c57,71
42,_c6,113
44,_c67,32
44,_c59,49
44,_c57,68
end